home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 18 / fpc103.zip / FILSTAT.SEQ < prev    next >
Text File  |  1988-01-05  |  1KB  |  28 lines
  1. \ FILSTAT       Display file status, and loaded files.  by Tom Zimmer
  2.  
  3. decimal
  4.  
  5. : .LOADED       ( --- ) \ Print a list of all files that have been loaded.
  6.                 cr also files words previous ;
  7.  
  8. : .FILES        ( --- ) \ Print the contents of the system handles.
  9.                 hndls maxnest bounds
  10.                 cr 11 spaces ." ___Filename___" 11 spaces ." Status"
  11.                 do      cr i shndl @ =
  12.                         if      ." Current - "
  13.                         else    8 spaces ." - "
  14.                         then    i count ?dup
  15.                         if      type
  16.                         else    drop ." .....No File....."
  17.                         then    26 i c@ ?dup 0=
  18.                                 if      17 then - spaces
  19.                                 i >hndle @ 0<
  20.                         if      i c@
  21.                                 if      ." Closed"
  22.                                 else    ." ......"
  23.                                 then
  24.                         else            ." *Open*"
  25.                         then
  26.          b/hcb +loop    cr ;
  27.  
  28.